home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / tcprogud.sit / TC Prog Guide / card_9925.txt < prev    next >
Text File  |  1991-02-27  |  21KB  |  1,000 lines
  1. -- card: 9925 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 4755
  5. -- name: contents (cont)
  6. ----- HyperTalk script -----
  7. -- modified version for only 18 hot fields
  8. on updateContents
  9.   global deletedCard
  10.   put 36*((the number of me)-(the number of card "contents")) into base
  11.   set cursor to watch
  12.   put 4 into firstField
  13.   repeat with x = 1 to 18
  14.     get line x+base of card field "content list" of card "contents"
  15.     if it is word 3 of deletedCard then
  16.       put "" into line x+base of card field "content list" of card "contents"
  17.       get ""
  18.     end if
  19.     if it is "" then
  20.       put "" into card field (2*x+firstField) of card (the number of me)
  21.       put "" into card field (2*x-1+firstField) of card (the number of me)
  22.     else
  23.       put the number of card id it into card field (2*x-1+firstField) of card (the number of me)
  24.       put it into card field (2*x+firstField) of card (the number of me)
  25.       get field "heading" of card id it
  26.       put it into word 1 of card field (2*x+firstField) of card (the number of me)
  27.     end if
  28.   end repeat
  29.   put (the number of me) + 1 into nextCard
  30.   get the name of card nextCard
  31.   get word 2 of it
  32.   get char 2 to 9 of it
  33.   if it is "contents" then
  34.     send updateContents to card nextCard
  35.   end if
  36. end updateContents
  37.  
  38.  
  39.  
  40.  
  41. -- part 26 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=7 top=57 right=300 bottom=502
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53.  
  54.  
  55. -- part 14 (field)
  56. -- low flags: 80
  57. -- high flags: 0000
  58. -- rect: left=141 top=21 right=36 bottom=237
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: bookmark1
  67.  
  68.  
  69. -- part 20 (field)
  70. -- low flags: 01
  71. -- high flags: 0000
  72. -- rect: left=232 top=37 right=55 bottom=469
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 2
  77. -- text size: 10
  78. -- style flags: 0
  79. -- line height: 13
  80. -- part name: instructions
  81.  
  82.  
  83. -- part 24 (field)
  84. -- low flags: 80
  85. -- high flags: 0000
  86. -- rect: left=237 top=21 right=36 bottom=333
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 3
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: bookmark2
  95.  
  96.  
  97. -- part 25 (field)
  98. -- low flags: 80
  99. -- high flags: 0000
  100. -- rect: left=333 top=21 right=36 bottom=429
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: bookmark3
  109.  
  110.  
  111. -- part 29 (field)
  112. -- low flags: 01
  113. -- high flags: 0000
  114. -- rect: left=451 top=60 right=74 bottom=494
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 65535
  118. -- font id: 2
  119. -- text size: 10
  120. -- style flags: 0
  121. -- line height: 13
  122. -- part name: 
  123.  
  124.  
  125. -- part 28 (field)
  126. -- low flags: 01
  127. -- high flags: 0000
  128. -- rect: left=14 top=60 right=74 bottom=494
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 2
  133. -- text size: 10
  134. -- style flags: 0
  135. -- line height: 13
  136. -- part name: 
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   visual iris open
  140.   get the number of the target
  141.   get card field (it-1)
  142.   if it is not "" then
  143.     -- added following to return to card
  144.     global xrefdepth
  145.     add 1 to xrefdepth
  146.     push card
  147.     show background button "return"
  148.     go card it
  149.   end if
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 31 (field)
  155. -- low flags: 01
  156. -- high flags: 0000
  157. -- rect: left=451 top=73 right=87 bottom=494
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 65535
  161. -- font id: 2
  162. -- text size: 10
  163. -- style flags: 0
  164. -- line height: 13
  165. -- part name: 
  166.  
  167.  
  168. -- part 30 (field)
  169. -- low flags: 01
  170. -- high flags: 0000
  171. -- rect: left=14 top=73 right=87 bottom=494
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 2
  176. -- text size: 10
  177. -- style flags: 0
  178. -- line height: 13
  179. -- part name: 
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   visual iris open
  183.   get the number of the target
  184.   get card field (it-1)
  185.   if it is not "" then
  186.     -- added following to return to card
  187.     global xrefdepth
  188.     add 1 to xrefdepth
  189.     push card
  190.     show background button "return"
  191.     go card it
  192.   end if
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 33 (field)
  198. -- low flags: 01
  199. -- high flags: 0000
  200. -- rect: left=451 top=86 right=100 bottom=494
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 65535
  204. -- font id: 2
  205. -- text size: 10
  206. -- style flags: 0
  207. -- line height: 13
  208. -- part name: 
  209.  
  210.  
  211. -- part 32 (field)
  212. -- low flags: 01
  213. -- high flags: 0000
  214. -- rect: left=14 top=86 right=100 bottom=494
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 2
  219. -- text size: 10
  220. -- style flags: 0
  221. -- line height: 13
  222. -- part name: 
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   visual iris open
  226.   get the number of the target
  227.   get card field (it-1)
  228.   if it is not "" then
  229.     -- added following to return to card
  230.     global xrefdepth
  231.     add 1 to xrefdepth
  232.     push card
  233.     show background button "return"
  234.     go card it
  235.   end if
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 35 (field)
  241. -- low flags: 01
  242. -- high flags: 0000
  243. -- rect: left=451 top=99 right=113 bottom=494
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 65535
  247. -- font id: 2
  248. -- text size: 10
  249. -- style flags: 0
  250. -- line height: 13
  251. -- part name: 
  252.  
  253.  
  254. -- part 34 (field)
  255. -- low flags: 01
  256. -- high flags: 0000
  257. -- rect: left=14 top=99 right=113 bottom=494
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 0
  261. -- font id: 2
  262. -- text size: 10
  263. -- style flags: 0
  264. -- line height: 13
  265. -- part name: 
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   visual iris open
  269.   get the number of the target
  270.   get card field (it-1)
  271.   if it is not "" then
  272.     -- added following to return to card
  273.     global xrefdepth
  274.     add 1 to xrefdepth
  275.     push card
  276.     show background button "return"
  277.     go card it
  278.   end if
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 37 (field)
  284. -- low flags: 01
  285. -- high flags: 0000
  286. -- rect: left=451 top=112 right=126 bottom=494
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 65535
  290. -- font id: 2
  291. -- text size: 10
  292. -- style flags: 0
  293. -- line height: 13
  294. -- part name: 
  295.  
  296.  
  297. -- part 36 (field)
  298. -- low flags: 01
  299. -- high flags: 0000
  300. -- rect: left=14 top=112 right=126 bottom=494
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 2
  305. -- text size: 10
  306. -- style flags: 0
  307. -- line height: 13
  308. -- part name: 
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   visual iris open
  312.   get the number of the target
  313.   get card field (it-1)
  314.   if it is not "" then
  315.     -- added following to return to card
  316.     global xrefdepth
  317.     add 1 to xrefdepth
  318.     push card
  319.     show background button "return"
  320.     go card it
  321.   end if
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 39 (field)
  327. -- low flags: 01
  328. -- high flags: 0000
  329. -- rect: left=451 top=125 right=139 bottom=494
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 65535
  333. -- font id: 2
  334. -- text size: 10
  335. -- style flags: 0
  336. -- line height: 13
  337. -- part name: 
  338.  
  339.  
  340. -- part 38 (field)
  341. -- low flags: 01
  342. -- high flags: 0000
  343. -- rect: left=14 top=125 right=139 bottom=494
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 0
  347. -- font id: 2
  348. -- text size: 10
  349. -- style flags: 0
  350. -- line height: 13
  351. -- part name: 
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   visual iris open
  355.   get the number of the target
  356.   get card field (it-1)
  357.   if it is not "" then
  358.     -- added following to return to card
  359.     global xrefdepth
  360.     add 1 to xrefdepth
  361.     push card
  362.     show background button "return"
  363.     go card it
  364.   end if
  365. end mouseUp
  366.  
  367.  
  368.  
  369. -- part 44 (field)
  370. -- low flags: 01
  371. -- high flags: 0000
  372. -- rect: left=451 top=138 right=151 bottom=494
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 65535
  376. -- font id: 2
  377. -- text size: 10
  378. -- style flags: 0
  379. -- line height: 13
  380. -- part name: 
  381.  
  382.  
  383. -- part 43 (field)
  384. -- low flags: 01
  385. -- high flags: 0000
  386. -- rect: left=14 top=138 right=152 bottom=494
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 0
  390. -- font id: 2
  391. -- text size: 10
  392. -- style flags: 0
  393. -- line height: 13
  394. -- part name: 
  395. ----- HyperTalk script -----
  396. on mouseUp
  397.   visual iris open
  398.   get the number of the target
  399.   get card field (it-1)
  400.   if it is not "" then
  401.     -- added following to return to card
  402.     global xrefdepth
  403.     add 1 to xrefdepth
  404.     push card
  405.     show background button "return"
  406.     go card it
  407.   end if
  408. end mouseUp
  409.  
  410.  
  411.  
  412. -- part 46 (field)
  413. -- low flags: 01
  414. -- high flags: 0000
  415. -- rect: left=451 top=151 right=165 bottom=494
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 65535
  419. -- font id: 2
  420. -- text size: 10
  421. -- style flags: 0
  422. -- line height: 13
  423. -- part name: 
  424.  
  425.  
  426. -- part 45 (field)
  427. -- low flags: 01
  428. -- high flags: 0000
  429. -- rect: left=14 top=151 right=165 bottom=494
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 0
  433. -- font id: 2
  434. -- text size: 10
  435. -- style flags: 0
  436. -- line height: 13
  437. -- part name: 
  438. ----- HyperTalk script -----
  439. on mouseUp
  440.   visual iris open
  441.   get the number of the target
  442.   get card field (it-1)
  443.   if it is not "" then
  444.     -- added following to return to card
  445.     global xrefdepth
  446.     add 1 to xrefdepth
  447.     push card
  448.     show background button "return"
  449.     go card it
  450.   end if
  451. end mouseUp
  452.  
  453.  
  454.  
  455. -- part 48 (field)
  456. -- low flags: 01
  457. -- high flags: 0000
  458. -- rect: left=451 top=164 right=178 bottom=494
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 65535
  462. -- font id: 2
  463. -- text size: 10
  464. -- style flags: 0
  465. -- line height: 13
  466. -- part name: 
  467.  
  468.  
  469. -- part 47 (field)
  470. -- low flags: 01
  471. -- high flags: 0000
  472. -- rect: left=14 top=164 right=178 bottom=494
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 2
  477. -- text size: 10
  478. -- style flags: 0
  479. -- line height: 13
  480. -- part name: 
  481. ----- HyperTalk script -----
  482. on mouseUp
  483.   visual iris open
  484.   get the number of the target
  485.   get card field (it-1)
  486.   if it is not "" then
  487.     -- added following to return to card
  488.     global xrefdepth
  489.     add 1 to xrefdepth
  490.     push card
  491.     show background button "return"
  492.     go card it
  493.   end if
  494. end mouseUp
  495.  
  496.  
  497.  
  498. -- part 50 (field)
  499. -- low flags: 01
  500. -- high flags: 0000
  501. -- rect: left=451 top=177 right=191 bottom=494
  502. -- title width / last selected line: 0
  503. -- icon id / first selected line: 0 / 0
  504. -- text alignment: 65535
  505. -- font id: 2
  506. -- text size: 10
  507. -- style flags: 0
  508. -- line height: 13
  509. -- part name: 
  510.  
  511.  
  512. -- part 49 (field)
  513. -- low flags: 01
  514. -- high flags: 0000
  515. -- rect: left=14 top=177 right=191 bottom=494
  516. -- title width / last selected line: 0
  517. -- icon id / first selected line: 0 / 0
  518. -- text alignment: 0
  519. -- font id: 2
  520. -- text size: 10
  521. -- style flags: 0
  522. -- line height: 13
  523. -- part name: 
  524. ----- HyperTalk script -----
  525. on mouseUp
  526.   visual iris open
  527.   get the number of the target
  528.   get card field (it-1)
  529.   if it is not "" then
  530.     -- added following to return to card
  531.     global xrefdepth
  532.     add 1 to xrefdepth
  533.     push card
  534.     show background button "return"
  535.     go card it
  536.   end if
  537. end mouseUp
  538.  
  539.  
  540.  
  541. -- part 52 (field)
  542. -- low flags: 01
  543. -- high flags: 0000
  544. -- rect: left=451 top=190 right=203 bottom=494
  545. -- title width / last selected line: 0
  546. -- icon id / first selected line: 0 / 0
  547. -- text alignment: 65535
  548. -- font id: 2
  549. -- text size: 10
  550. -- style flags: 0
  551. -- line height: 13
  552. -- part name: 
  553.  
  554.  
  555. -- part 51 (field)
  556. -- low flags: 01
  557. -- high flags: 0000
  558. -- rect: left=14 top=190 right=204 bottom=494
  559. -- title width / last selected line: 0
  560. -- icon id / first selected line: 0 / 0
  561. -- text alignment: 0
  562. -- font id: 2
  563. -- text size: 10
  564. -- style flags: 0
  565. -- line height: 13
  566. -- part name: 
  567. ----- HyperTalk script -----
  568. on mouseUp
  569.   visual iris open
  570.   get the number of the target
  571.   get card field (it-1)
  572.   if it is not "" then
  573.     -- added following to return to card
  574.     global xrefdepth
  575.     add 1 to xrefdepth
  576.     push card
  577.     show background button "return"
  578.     go card it
  579.   end if
  580. end mouseUp
  581.  
  582.  
  583.  
  584. -- part 54 (field)
  585. -- low flags: 01
  586. -- high flags: 0000
  587. -- rect: left=451 top=203 right=217 bottom=494
  588. -- title width / last selected line: 0
  589. -- icon id / first selected line: 0 / 0
  590. -- text alignment: 65535
  591. -- font id: 2
  592. -- text size: 10
  593. -- style flags: 0
  594. -- line height: 13
  595. -- part name: 
  596.  
  597.  
  598. -- part 53 (field)
  599. -- low flags: 01
  600. -- high flags: 0000
  601. -- rect: left=14 top=203 right=217 bottom=494
  602. -- title width / last selected line: 0
  603. -- icon id / first selected line: 0 / 0
  604. -- text alignment: 0
  605. -- font id: 2
  606. -- text size: 10
  607. -- style flags: 0
  608. -- line height: 13
  609. -- part name: 
  610. ----- HyperTalk script -----
  611. on mouseUp
  612.   visual iris open
  613.   get the number of the target
  614.   get card field (it-1)
  615.   if it is not "" then
  616.     -- added following to return to card
  617.     global xrefdepth
  618.     add 1 to xrefdepth
  619.     push card
  620.     show background button "return"
  621.     go card it
  622.   end if
  623. end mouseUp
  624.  
  625.  
  626.  
  627. -- part 56 (field)
  628. -- low flags: 01
  629. -- high flags: 0000
  630. -- rect: left=451 top=216 right=230 bottom=494
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 0 / 0
  633. -- text alignment: 65535
  634. -- font id: 2
  635. -- text size: 10
  636. -- style flags: 0
  637. -- line height: 13
  638. -- part name: 
  639.  
  640.  
  641. -- part 55 (field)
  642. -- low flags: 01
  643. -- high flags: 0000
  644. -- rect: left=14 top=216 right=230 bottom=494
  645. -- title width / last selected line: 0
  646. -- icon id / first selected line: 0 / 0
  647. -- text alignment: 0
  648. -- font id: 2
  649. -- text size: 10
  650. -- style flags: 0
  651. -- line height: 13
  652. -- part name: 
  653. ----- HyperTalk script -----
  654. on mouseUp
  655.   visual iris open
  656.   get the number of the target
  657.   get card field (it-1)
  658.   if it is not "" then
  659.     -- added following to return to card
  660.     global xrefdepth
  661.     add 1 to xrefdepth
  662.     push card
  663.     show background button "return"
  664.     go card it
  665.   end if
  666. end mouseUp
  667.  
  668.  
  669.  
  670. -- part 58 (field)
  671. -- low flags: 01
  672. -- high flags: 0000
  673. -- rect: left=451 top=229 right=243 bottom=494
  674. -- title width / last selected line: 0
  675. -- icon id / first selected line: 0 / 0
  676. -- text alignment: 65535
  677. -- font id: 2
  678. -- text size: 10
  679. -- style flags: 0
  680. -- line height: 13
  681. -- part name: 
  682.  
  683.  
  684. -- part 57 (field)
  685. -- low flags: 01
  686. -- high flags: 0000
  687. -- rect: left=14 top=229 right=243 bottom=494
  688. -- title width / last selected line: 0
  689. -- icon id / first selected line: 0 / 0
  690. -- text alignment: 0
  691. -- font id: 2
  692. -- text size: 10
  693. -- style flags: 0
  694. -- line height: 13
  695. -- part name: 
  696. ----- HyperTalk script -----
  697. on mouseUp
  698.   visual iris open
  699.   get the number of the target
  700.   get card field (it-1)
  701.   if it is not "" then
  702.     -- added following to return to card
  703.     global xrefdepth
  704.     add 1 to xrefdepth
  705.     push card
  706.     show background button "return"
  707.     go card it
  708.   end if
  709. end mouseUp
  710.  
  711.  
  712.  
  713. -- part 60 (field)
  714. -- low flags: 01
  715. -- high flags: 0000
  716. -- rect: left=451 top=242 right=255 bottom=494
  717. -- title width / last selected line: 0
  718. -- icon id / first selected line: 0 / 0
  719. -- text alignment: 65535
  720. -- font id: 2
  721. -- text size: 10
  722. -- style flags: 0
  723. -- line height: 13
  724. -- part name: 
  725.  
  726.  
  727. -- part 59 (field)
  728. -- low flags: 01
  729. -- high flags: 0000
  730. -- rect: left=14 top=242 right=256 bottom=494
  731. -- title width / last selected line: 0
  732. -- icon id / first selected line: 0 / 0
  733. -- text alignment: 0
  734. -- font id: 2
  735. -- text size: 10
  736. -- style flags: 0
  737. -- line height: 13
  738. -- part name: 
  739. ----- HyperTalk script -----
  740. on mouseUp
  741.   visual iris open
  742.   get the number of the target
  743.   get card field (it-1)
  744.   if it is not "" then
  745.     -- added following to return to card
  746.     global xrefdepth
  747.     add 1 to xrefdepth
  748.     push card
  749.     show background button "return"
  750.     go card it
  751.   end if
  752. end mouseUp
  753.  
  754.  
  755.  
  756. -- part 62 (field)
  757. -- low flags: 01
  758. -- high flags: 0000
  759. -- rect: left=451 top=255 right=268 bottom=494
  760. -- title width / last selected line: 0
  761. -- icon id / first selected line: 0 / 0
  762. -- text alignment: 65535
  763. -- font id: 2
  764. -- text size: 10
  765. -- style flags: 0
  766. -- line height: 13
  767. -- part name: 
  768.  
  769.  
  770. -- part 61 (field)
  771. -- low flags: 01
  772. -- high flags: 0000
  773. -- rect: left=14 top=255 right=269 bottom=494
  774. -- title width / last selected line: 0
  775. -- icon id / first selected line: 0 / 0
  776. -- text alignment: 0
  777. -- font id: 2
  778. -- text size: 10
  779. -- style flags: 0
  780. -- line height: 13
  781. -- part name: 
  782. ----- HyperTalk script -----
  783. on mouseUp
  784.   visual iris open
  785.   get the number of the target
  786.   get card field (it-1)
  787.   if it is not "" then
  788.     -- added following to return to card
  789.     global xrefdepth
  790.     add 1 to xrefdepth
  791.     push card
  792.     show background button "return"
  793.     go card it
  794.   end if
  795. end mouseUp
  796.  
  797.  
  798.  
  799. -- part 64 (field)
  800. -- low flags: 01
  801. -- high flags: 0000
  802. -- rect: left=451 top=268 right=282 bottom=494
  803. -- title width / last selected line: 0
  804. -- icon id / first selected line: 0 / 0
  805. -- text alignment: 65535
  806. -- font id: 2
  807. -- text size: 10
  808. -- style flags: 0
  809. -- line height: 13
  810. -- part name: 
  811.  
  812.  
  813. -- part 63 (field)
  814. -- low flags: 01
  815. -- high flags: 0000
  816. -- rect: left=14 top=268 right=282 bottom=494
  817. -- title width / last selected line: 0
  818. -- icon id / first selected line: 0 / 0
  819. -- text alignment: 0
  820. -- font id: 2
  821. -- text size: 10
  822. -- style flags: 0
  823. -- line height: 13
  824. -- part name: 
  825. ----- HyperTalk script -----
  826. on mouseUp
  827.   visual iris open
  828.   get the number of the target
  829.   get card field (it-1)
  830.   if it is not "" then
  831.     -- added following to return to card
  832.     global xrefdepth
  833.     add 1 to xrefdepth
  834.     push card
  835.     show background button "return"
  836.     go card it
  837.   end if
  838. end mouseUp
  839.  
  840.  
  841.  
  842. -- part 66 (field)
  843. -- low flags: 01
  844. -- high flags: 0000
  845. -- rect: left=451 top=281 right=295 bottom=494
  846. -- title width / last selected line: 0
  847. -- icon id / first selected line: 0 / 0
  848. -- text alignment: 65535
  849. -- font id: 2
  850. -- text size: 10
  851. -- style flags: 0
  852. -- line height: 13
  853. -- part name: 
  854.  
  855.  
  856. -- part 65 (field)
  857. -- low flags: 01
  858. -- high flags: 0000
  859. -- rect: left=14 top=281 right=295 bottom=494
  860. -- title width / last selected line: 0
  861. -- icon id / first selected line: 0 / 0
  862. -- text alignment: 0
  863. -- font id: 2
  864. -- text size: 10
  865. -- style flags: 0
  866. -- line height: 13
  867. -- part name: 
  868. ----- HyperTalk script -----
  869. on mouseUp
  870.   visual iris open
  871.   get the number of the target
  872.   get card field (it-1)
  873.   if it is not "" then
  874.     -- added following to return to card
  875.     global xrefdepth
  876.     add 1 to xrefdepth
  877.     push card
  878.     show background button "return"
  879.     go card it
  880.   end if
  881. end mouseUp
  882.  
  883.  
  884.  
  885. -- part 130 (button)
  886. -- low flags: 80
  887. -- high flags: A003
  888. -- rect: left=352 top=26 right=43 bottom=475
  889. -- title width / last selected line: 0
  890. -- icon id / first selected line: 0 / 0
  891. -- text alignment: 1
  892. -- font id: 0
  893. -- text size: 12
  894. -- style flags: 0
  895. -- line height: 16
  896. -- part name: Add Contents Pg.
  897. ----- HyperTalk script -----
  898. on mouseUp
  899.   put the userLevel into currentLevel
  900.   set the userLevel to 5
  901.   doMenu "Copy Card"
  902.   doMenu "Paste Card"
  903.   put "" into field "page no"
  904.   send updateContents to this card
  905.   set the userLevel to currentLevel
  906. end mouseUp
  907.  
  908.  
  909.  
  910. -- part contents for card part 14
  911. ----- text -----
  912. card id 4342
  913.  
  914. -- part contents for background part 4
  915. ----- text -----
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926. -- part contents for card part 24
  927. ----- text -----
  928. 0
  929.  
  930. -- part contents for card part 25
  931. ----- text -----
  932. 0
  933.  
  934. -- part contents for background part 6
  935. ----- text -----
  936. List of Code Examples
  937.  
  938. -- part contents for card part 29
  939. ----- text -----
  940. 17
  941.  
  942. -- part contents for card part 28
  943. ----- text -----
  944. Simple Person class example
  945.  
  946. -- part contents for card part 33
  947. ----- text -----
  948. 40
  949.  
  950. -- part contents for card part 32
  951. ----- text -----
  952. Derivation of Student class from Person class
  953.  
  954. -- part contents for card part 37
  955. ----- text -----
  956. 82
  957.  
  958. -- part contents for card part 36
  959. ----- text -----
  960. Example of user-defined data types
  961.  
  962. -- part contents for card part 44
  963. ----- text -----
  964. 103
  965.  
  966. -- part contents for card part 43
  967. ----- text -----
  968. Example of recursion, multiple source files
  969.  
  970. -- part contents for card part 48
  971. ----- text -----
  972. 131
  973.  
  974. -- part contents for card part 47
  975. ----- text -----
  976. Object-oriented program using multiple source and header files
  977.  
  978. -- part contents for card part 52
  979. ----- text -----
  980. 205
  981.  
  982. -- part contents for card part 51
  983. ----- text -----
  984. Portable graphics class and Macintosh version
  985.  
  986. -- part contents for card part 56
  987. ----- text -----
  988. 210
  989.  
  990. -- part contents for card part 55
  991. ----- text -----
  992. Root class for TC using automated constructors/destructors
  993.  
  994. -- part contents for background part 7
  995. ----- text -----
  996. 4
  997.  
  998. -- part contents for card part 20
  999. ----- text -----
  1000. (click on the topic or page no. of interest)